home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Format CD 44
/
Amiga Format CD44 (1999-08-26)(Future Publishing)(GB)(Track 1 of 3)[!][issue 1999-10].iso
/
-serious-
/
wb
/
coloursetter
/
install_coloursetter
< prev
next >
Wrap
Text File
|
1999-07-26
|
2KB
|
118 lines
; $VER: ColourSetter Installer v1.0 (09.08.96)
; By Samuel Bowers for Samsof Software
; © Samsof 1996
(welcome "Welcome to the ColourSetter Installation routine")
(set choiceprompt "Please select which version of ColourSetter\n you wish to install")
(set us0 "; Added by ColourSetter © Samsof 1996\n if exists Sys:prefs/CRd\n CR\n endif\n ; End of ColourSetter addition")
(set us5 "; Added by ColourSetter © Samsof 1996\n if exists Sys:prefs/CRd_AGA\n CR_AGA\n endif\n ; End of ColourSetter addition")
(set sourcedir "/")
(set type
(askchoice
(prompt choiceprompt)
(choices "Install Non AGA Version" "Install AGA Version")
(default "Install Non AGA Version")
(help @askchoice-help)
)
)
(set selectprompt "Please Select a directory in which\n to place the ColourSetter Program\n A drawer called `ColourSetter' will be created.")
(complete 21)
(set target
(askdir
(prompt selectprompt)
(default "")
(disk)
(help @askdir-help)
)
)
(makedir
(prompt "")
(tackon target "ColourSetter")
(infos)
)
(set target
(tackon target "ColourSetter")
)
(complete 40)
(if (= type 0)
(copyfiles
(prompt "")
(source "ColourSetter")
(dest target)
(infos)
(help "")
)
)
(if (= type 0)
(copyfiles
(prompt "")
(source "CR")
(dest "sys:c")
(infos)
(help "")
)
)
(if (= type 0)
(startup "ColourSetter © Samsof 1996"
(prompt "")
(command "If exists sys:prefs/CRd \n CR \nEndif")
(help "")
)
)
(if (= type 1)
(copyfiles
(prompt "")
(Source "ColourSetter_AGA")
(dest target)
(infos)
(help "")
)
)
(if (= type 1)
(copyfiles
(prompt "")
(source "CR_AGA")
(dest "Sys:c")
(infos)
(help "")
)
)
(if (= type 1)
(startup "ColourSetter © Samsof 1996"
(prompt "")
(command "If exists sys:prefs/CRd_AGA \n CR_AGA \nEndif")
(help "")
)
)
(complete 85)
(copyfiles
(prompt "")
(source "c/fullview")
(dest "Sys:c")
(infos)
(help "")
)
(copyfiles
(prompt "")
(source "CS.Docs")
(dest target)
(infos)
(help "")
)
(complete 100)